home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 11, No. 10 (1990-10)(MindCraft Publishing)(Side A).zip / Nibble Volume 11, No. 10 (1990-10)(MindCraft Publishing)(Side A).po / DBL.HIRES.bas < prev    next >
BASIC Source File  |  1996-12-24  |  1KB  |  28 lines
  1. 1  REM  *************************
  2. 2  REM  * DBL.HIRES2            *
  3. 3  REM  * BY VERN L. MASTEL     *
  4. 4  REM  * COPYRIGHT (C) 1990    *
  5. 5  REM  * MINDCRAFT PUBL. CORP. *
  6. 6  REM  * CONCORD, MA 01742     * 
  7. 7  REM  *************************
  8. 10  REM  TURN ON THE 80 COLUMN FIRMWARE
  9. 20  TEXT : HOME : PRINT  CHR$(4)"PR#3": PRINT "PathName to load:  ";: INPUT "";PN$
  10. 30  REM  SET UP THE AUXMOVE VECTORS IN PAGE 3
  11. 40  POKE 768,56: REM  $38 SET CARRY FLAG
  12. 50  POKE 769,76: REM  $4C JMP
  13. 60  POKE 770,17: REM  $11 LOW BYTE ADDRESS $11
  14. 70  POKE 771,195: REM  $3C HIGH BYTE ADDRESS $3C
  15. 80  POKE 49246,0: REM  TURN OFF ANNUNCIATOR 3
  16. 90  HGR : REM  CLEAR THE SCREEN
  17. 100  REM  LOAD THE AUXILIARY RESIDENT PORTION OF THE PICTURE
  18. 110  PRINT  CHR$(4)"BLOAD ";PN$;",A8192,L8192"
  19. 120  POKE 60,0: REM  SOURCE LOW BYTE IS 0
  20. 130  POKE 61,32: REM  SOURCE HIGH BYTE IS 8192 (32*256)
  21. 140  POKE 62,0: REM  SOURCE END LOW BYTE IS 0
  22. 150  POKE 63,64: REM  SOURCE END HIGH BYTE IS 16384 (64*256)
  23. 160  POKE 66,0: REM  DESTINATION LOW BYTE IS 0
  24. 170  POKE 67,32: REM  DESTINATION HIGH BYTE IS 8192 (32*256)
  25. 180  CALL 768: REM  CALL AUXMOVE TO MOVE MAIN MEMORY TO AUXILIARY MEMORY
  26. 190  PRINT  CHR$(4)"BLOAD ";PN$;", A8192, B8192":: REM  LOAD THE SECOND HALF OF THE PICTURE TO MAIN MEMORY
  27. 200  POKE 49234,0: REM  TURN OFF THE TEXT WINDOW AT THE BOTTOM OF THE SCREEN.
  28. 210  GET Z$: TEXT : HOME